perm filename LBENCH[E76,JMC] blob sn#231677 filedate 1976-08-19 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DE SUBB (X Y Z) (COND ((ATOM Z) (COND ((EQ Z Y) X)(T Z)))
C00003 ENDMK
CāŠ—;
(DE SUBB (X Y Z) (COND ((ATOM Z) (COND ((EQ Z Y) X)(T Z)))
(T (CONS (SUBB X Y (CAR Z)) (SUBB X Y (CDR Z))))))

(DE TEST (N) (COND ((EQUAL N 0) (QUOTE DONE)) (T
((LAMBDA (X Y) X) (SUBB (QUOTE A) (QUOTE B) (QUOTE ((A.B)(A.B))))
(TEST (SUB1 N))))))

(SETQ BASE (SETQ IBASE 10.))